DataSource Not Found

hi... i am very new to SQL server.. previously was using MySQL...


now i am trying to connect my project to SQL Server..


but i wasnt able to...


i keep getting errors





System.Data.Odbc.OdbcException: ERROR [IM002] [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified at System.Data.Odbc.OdbcConnection.Open() at icms.DB.q(String mySTR) in C:icmsDB.vb:line 30





below is my webconfig


i am not very sure about the value for the user.. because if it is MySQL i can get it from my control centre.. but what about SQL server ? where should i get my value ?





<?xml version="1.0" encoding="utf-8" ?>


<configuration>


<appSettings>


<add key="db" value="icms" />


<add key="db_user" value="sqladmin" />


<add key="db_server" value="server" />


<add key="db_pwd" value="*****" />


<add key="session_timeout" value="600" />


</appSettings>





<system.web>





<compilation defaultLanguage="vb" debug="true" />


<trace enabled="true"/>


<customErrors mode="RemoteOnly" />





</system.web>





</configuration>








======================








Dim myCMD As New SqlCommand


Public Sub New()


Dim db_server = AppSettings("db_server")


Dim db = AppSettings("db")


Dim db_user = AppSettings("db_user")


Dim db_pwd = AppSettings("db_pwd")


Dim DBConnection As String = "DRIVER={SQL Server};" & _ '<==== is my driver correct?


"SERVER=" & db_server & ";" & _


"DATABASE=" & db & ";" & _


"UID=" & db_user & ";" & _


"PASSWORD=" & db_pwd & ";" & _


"OPTION=3;"


myDB.ConnectionString = DBConnection


myCMD.Connection = myDB


End Sub


'Public Function q(ByVal mySTR As String) As OdbcDataReader 'SQL Query


Public Function q(ByVal myStr As String) As SqlDataReader


myCMD.CommandText = myStr


Try


myDB.Open()


q = myCMD.ExecuteReader(Data.CommandBehavior.CloseConnection)


Catch ex As Exception


Err(ex.ToString)


End Try





End Function


Public Sub c(ByVal mySTR As String)


' COMMAND ONLY


Try


myCMD.Connection.Open()


myCMD.CommandText = mySTR


myCMD.ExecuteNonQuery()


myCMD.Connection.Close()


Catch ex As Exception


Err(ex.ToString)


End Try


End Sub