Public Function GetFieldValue(ByVal srcSQL As String, ByVal strField As String) Dim conn As New OleDb.OleDbConnection(My.Settings.DataConnectionString) Try conn.Open() Dim cmd As OleDbCommand = New OleDbCommand(srcSQL, conn) 'create data reader Dim rdr As OleDbDataReader = cmd.ExecuteReader 'loop through result set rdr.Read() If rdr.HasRows Then GetFieldValue = rdr(strField).ToString() 'close data reader Catch ex As Exception MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Function
Dim strValue as String strValue = GetFieldValue("SELECT * FROM Table1 WHERE ID = 1", "Field1")